home *** CD-ROM | disk | FTP | other *** search
/ Animation How-To / Animation How-to CD.iso / PLY / CHAPTER5 / SHATTER / MORENMOR.BAS < prev    next >
BASIC Source File  |  1994-01-01  |  435b  |  20 lines
  1. OPEN "moretri.inc" FOR OUTPUT AS #1
  2.  
  3. r = .99
  4. FOR a = 13 TO 192
  5.    b = a MOD 12
  6.    IF b = 0 THEN b = 12
  7.    c$ = RIGHT$("000" + LTRIM$(STR$(b)), 3)
  8.    d$ = RIGHT$("000" + LTRIM$(STR$(a)), 3)
  9.  
  10.    PRINT #1, USING "define a\ \ a\ \*#.###"; d$; c$; r
  11.    PRINT #1, USING "define b\ \ b\ \*#.###"; d$; c$; r
  12.    PRINT #1, USING "define c\ \ c\ \*#.###"; d$; c$; r
  13.    PRINT #1,
  14.  
  15.    IF b = 12 THEN r = r * .9
  16. NEXT a
  17.  
  18. CLOSE #1
  19.  
  20.